home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SMAILT.PLP < prev    next >
Text File  |  1991-08-17  |  1KB  |  36 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* Smailt(ONEPROC);
  3. **   複数のテキストファイルをメール発信する｡
  4. **     ONEPROC:メールするファイル名列 ｢SMLT=B:\MAIL\TEST1.TXT,B:\MAIL,No,｣
  5. */
  6. /* %Smailt { */
  7. /*  [ONEPROC] */
  8.  
  9.   %send1mail { [file]
  10.     type({MAIL\n});
  11.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  12.     type({COM\n});
  13.     wait(ABORTTIME,{Abort},{終了は行頭で/E）\n},);
  14.     send(file);
  15.     type({\n/E\n});
  16.     wait({180},{Abort},{：},{type({2\n})});
  17.     wait({4},
  18.       {Flash;Flash;
  19.        chat({Yes});
  20.        wait({180},
  21.          {Abort},
  22.          {送信 (1:送信する　2:しない)\n：},{chat({No});type({1\n})});
  23.       },
  24.       {送信 (1:送信する　2:しない)\n：},
  25.         {case(DEBUG={Yes},{No},{type({1\n})},{Yes},{type({1\n})})});
  26.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  27.   };
  28.  
  29.   var FILES[128];FILES:=@body(ONEPROC,{SMLT=});
  30.   loop({%temp @head(FILES,{,});
  31.         case(temp={No},
  32.           {Yes},{im({No})},
  33.           {No},{FILES:=@body(FILES,{,});send1mail(temp);im({Yes})}
  34.         )})
  35. /* }; */
  36.